Languguage OS 2/Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO/a_utils/perl/prlbkxmp.lha/ch5/sortnum.eg

Text File | 1991-01-08 | 86b | 5 lines

sub bynumber { $a <=> $b; }

@raw = (1,16,2,32,4,64,8);
@sorted = sort bynumber @raw;